home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 September
/
1984-09.d64
/
begin corner 2_v
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
56 lines
10 rem computer inventory
20 c$(1)="commodore":c$(2)="radio shack"
30 c$(3)="texas instruments"
40 d$(1)="computers":d$(2)="peripherals":d$(3)="software"
50 print "[147]"
60 print " ** inventory **"
70 print "choose:"
80 for i=1 to 3:print i;c$(i):next
90 print " 0 everything"
100 get a$:if a$<"0" or a$>"3" then 100
110 cc=val(a$)
120 print "choose:"
130 for i=1 to 3:print i;d$(i):next
140 print " 0 everything":poke 198,0
150 get a$:if a$<"0" or a$>"3" then 150
160 dd=val(a$)
170 print "[147]"
180 tt=0
190 print c$(cc),d$(dd);""
200 restore
210 read c,d,item$,sn$,date$,cst
220 if c=10 then 310
230 if cc=0 then 250
240 if cc<>c then 210
250 if dd=0 then 270
260 if dd<>d then 210
270 c$=str$(cst)
280 print item$,sn$,date$;tab(20-len(c$));c$""
290 tt=tt+cst
300 goto 210
310 t$=str$(tt)
320 print "total";tab(20-len(t$));t$
330 print "different category? (y/n)";
340 get a$:if a$="y" then 50
350 if a$="n" then 550
360 goto 340
370 rem inventory items
380 data 1,1,vic-20,v029972,1982,225
390 data 1,2,datasette,282754,1982,70
400 data 1,3,vicmon,,1982,60
410 data 1,1,c-64,p00144607,1983,345
420 data 1,2,1541 drive,k0177958,1984,250
430 data 1,2,1525 printer,5016223,1984,250
440 data 1,3,radar rat,,1983,30
450 data 2,1,16k color,0024023,1982,620
460 data 2,2,recorder,,1982,56
470 data 2,3,color logo,,1983,55
480 data 2,3,videotex,,1983,40
490 data 3,1,ti-9/4,61205,1980,635
500 data 3,1,ti-99/4a,40102545,1982,425
510 data 3,2,ti recorder,025426,1983,60
520 data 3,3,attack,5159992,1983,35
530 data 3,3,munchman,9976273,1982,35
540 data 10,0,,,,0
550 end